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CHAPTER  1 


INTRODUCTION 


The  Ada  infjlementatlon  described  above  was  tested  according  to  the  Ada 
Validation  Procedures  [Pro90]  against  the  Ada  Standard  [Ada83]  using  the 
current  Ada  CoDH)iler  Validation  Capability  (ACVC).  This  Validation  Summary 
Report  (VSR)  gives  an  account  of  the  testing  of  this  Ada  inplementation^ 
For  any  tecimical  terms  used  in  this  report,  the  reader  is  referred  to 
(Pro90].  A  detailed  description  of  the  ACVC  may  be  found  in  the  current  ' 
ACVC  User's  Guide  [UG89]. 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

-Consistent  with  the  national  laws  of  the  originating  country,  the  Ada 
Certification  Body  may  make  full  and  free  public  disclosure  of  this  report. 
In  the  United  States,  this  is  provided  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply 
only  to  the  computers,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statements  set  forth  in  this  report  are 
accurate  and  conplete,  or  that  the  subject  implementation  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies  of 
this  report  are  availeUale  to  the  public  from  the  AVF  vihich  performed  this 
validation  or  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  VA  22161 


Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  vhich  performed  this  validation  or  to: 

Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria  VA  22311 
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1.2  REFERENCES 


Reference  Manual  for  the  Ada  Progrcumning  Language [Ada83 ] , 
ANSI/MIL-STD-1815A,  February  1983  and  ISO  8652-1987. 

Ada  CcMipiler  Validation  Procedures,  Version  2.1  [Pro90], 
Ada  Joint  Program  Office,  August  1990. 

Ada  Conpiler  Validation  Capability  User's  Guide  [UG89], 

21  June  1989. 


1.3  ACVC  TEST  CLASSES 

>Con5)liance  of  Ada  implementations  is  tested  by  means  of  the  ACVC.  The  ACVC 
contains  a  collection  of  test  programs  structured  into  six  test  classes: 

A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies  the  class 
to  which  it  belongs.  Class  A,  C,  D,  and  E  tests  are  executable.  Class  B 
and  class  L  tests  are  expected  to  produce  errors  at  conpile  time  and  link 
time,  respectively. 

The  execute±)le  tests  are  written  in  a  self-checking  manner  and  produce  a 
PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the  result  when  they 
are  executed.^  Three  Ada  library  units,  the  packages  REPORT  and  SPPRT13, 

2uid  the  proce^re  CHECK  FILE  are  used  for  this  purpose.  The  package  RETORT 
also  provides  a  set  of  Tdentity  functions  used  to  defeat  some  conpiler 
optimizations  allowed  by  the  Ada  Staxxiatd  that  would  circumvent  a  test 
objective.  The  package  SPPRT13  is  used  by  many  tests  for  Chapter  13  of  the 
Ada  Standard.  Ihe  procedure  CHECK_FILE  is  used  to  check  the  contents  of 
text  files  written  by  some  of  the  Class  C  tests  for  Chapter  14  of  the  Ada 
Steundard.  The  operation  of  RETORT  and  CHECK_FILE  is  checked  by  a  set  of 
executable  tests.  If  these  units  are  not  operating  correctly,  validation 
testing  is  discontinued. 

Class  B  tests  check  that  a  compiler  detects  illegal  Icinguage  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  compiled  and  the 
resulting  conpilation  listing  is  examined  to  verify  that  all  violations  of 
the  Ada  Steundard  are  detected.  Some  of  the  class  B  tests  contain  legal  Ada 
code  which  must  not  be  flagged  illegal  by  the  conpiler.  This  behavior  is 
also  verified. 

Class  L  tests  check  that  an  Ada  inplementation  correctly  detects  violation 
of  the  Ada  Steindard  involving  multiple,  separately  compiled  xonits.  Errors 
are  expected  at  link  time,  eind  execution  is  attempted. 

In  some  tests  of  the  ACVC,  certain  macro  strings  have  to  be  replaced  by 
inplementation-specific  values  —  for  exanple,  the  largest  integer,  a  list 
of  the  values  used  for  this  inplementation  is  provided  in  i^jpendix  A.  In 
addition  to  these  anticipated  test  modifications,  additional  cheuiges  may  be 
required  to  remove  unforeseen  conflicts  between  the  tests  and 
implementation-dependent  characteristics.  The  modifications  required  for 
this  inplementation  are  described  in  section  2.3. 
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For  each  Ada  iinplementation,  a  customized  test  suite  is  produced  by  the 
AVF.  This  customization  consists  of  making  the  modifications  described  in 
the  preceding  paragraph,  removing  withdravm  tests  (see  section  2.1)  and, 
possibly  some  inapplicable  tests  (see  Section  2.2  and  [UGS9]). 

In  order  to  pass  an  ACVC  an  Ada  inplementation  must  process  each  test  of 
the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERMS 


Ada  Conpiler  The  software  auid  any  needed  hardware  that  have  to  be  added 
to  a  given  host  euid  target  con^ter  system  to  allow 
transformation  of  Ada  programs  into  executable  form  and 
execution  thereof. 

Ada  Conpiler  The  means  for  testing  compliance  of  Ada  implementations. 
Validation  consisting  of  the  test  suite,  the  support  programs,  the  ACVC 
Capedsility  user's  guide  and  the  template  for  the  validation  simimary 

(ACVC)  report. 

Ada  An  Ada  compiler  with  its  host  computer  system  emd  its 

Implementation  target  computer  system. 

Ada  Joint  The  part  of  the  certification  body  which  provides  policy  and 
Program  guidance  for  the  Ada  certification  system. 

Office  (AJPO) 

Ada  The  part  of  the  certification  body  which  carries  out  the 

Validation  procedures  required  to  establish  the  complicince  of  em  Ada 
Facility  (AVF)  implementation. 

Ada  The  part  of  the  certification  body  that  provides  technical 

Validation  guideuice  for  operations  of  the  Ada  certification  system. 

Organization 
(AVO) 

Compliance  of  The  ability  of  the  implementation  to  pass  an  ACVC  version, 
an  Ada 

Implementation 

Computer  A  functional  unit,  consisting  of  one  or  more  computers  and 

System  associated  software,  that  uses  common  storage  for  all  or 

part  of  a  program  emd  also  for  all  or  part  of  the  data 
necessary  for  the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including  arithmetic 
operations  and  logic  operations;  eind  that  can  execute 
programs  that  modify  themselves  during  execution.  A 
computer  system  may  be  a  steuid-alone  unit  or  may  consist  of 
several  inter-connected  units. 


1-3 


INTRODUCTION 


Conformity 


Customer 


Declaration  of 
Conformance 


Host  Computer 
System 

Inapplicable 

test 

ISO 

Operating 

System 


Target 

Ccmputer 

System 

Validated  Ada 
Conpiler 

Validated  Ada 
In{)lementation 

Validation 


Withdrawn 

test 


Fulfillment  by  a  product,  process  or  service  of  all 
requirements  specified. 

An  individual  or  corporate  entity  v*o  enters  into  an 
agreement  with  an  AVF  which  specifies  the  terms  and 
conditions  for  AVF  services  (of  any  kind)  to  be  performed. 

A  formal  statement  from  a  customer  assuring  that  conformity 
is  realized  or  attainable  on  the  Ada  implementation  for 
which  validation  statxis  is  realized. 

A  conputer  system  v^ere  Ada  source  programs  are  transformed 
into  executable  form. 

A  test  that  contains  one  or  more  test  objectives  found  to  lae 
irrelevant  for  the  given  Ada  implementation. 

International  Organization  for  Standardization. 

Software  that  controls  the  execution  of  programs  euid  that 
provides  services  such  as  resource  allocation,  scheduling, 
input/output  control,  and  data  management.  Usually, 
operating  systems  are  predomineuitly  software,  but  partial  or 
conplete  hardware  isplemen tat ions  are  possible. 

A  coiqxjter  system  where  the  executable  form  of  Ada  programs 
are  executed. 


The  c(xq)iler  of  a  validated  Ada  inplementation. 


An  Ada  in^lementation  that  has  been  validated  successfully 
either  by  AVF  testing  or  by  registration  [Pro90]. 

The  process  of  checking  the  conformity  of  an  Ada  conpiler  to 
the  Ada  programming  leuiguage  and  of  issuing  a  certificate 
for  this  iiq}lementation. 

A  test  found  to  be  incorrect  and  not  used  in  conformity 
testing.  A  test  may  be  incorrect  because  it  has  an  invalid 
test  objective,  fails  to  meet  its  test  objective,  or 
contains  erroneous  or  illegal  use  of  the  Ada  programming 
language . 
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IMPLEMENTATION  DEPENDENCIES 


2.1  WITHDRAS^N  TESTS 

The  following  tests  have  been  withdrawn  by  the  AVO.  The  rationale  for 
withdrawing  each  test  is  available  from  either  the  AVO  or  the  AVF.  Hie 
publication  date  for  this  list  of  withdrawn  tests  is  21  November  1990. 


E28005C 

B28006C 

C34006D 

C35702A 

B41308B 

C43004A 

C45114A 

C45346A 

C45612B 

C45651A 

C46022A 

B49008A 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

B83026B 

C83026A 

C83041A 

B85001L 

C97116A 

C98003B 

BA2011A 

CB7001A 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21E 

CD2A23E 

CD2A32A 

CD2A41A 

CD2A41E 

CD2A87A 

CD2B15C 

BD3006A 

BD4008A 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD4031A 

CD4051D 

CD5111A 

CD7004C 

ED7005D 

CD7005E 

AD7006A 

CD7006E 

AD7201A 

AD7201E 

CD7204B 

BD8002A 

BD8004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

2.2  INAPPLICABLE  TESTS 

A  test  is  inapplicable  if  it  contains  test  objectives  which  are  irrelevant 
for  a  given  Ada  inplementation.  Reasons  for  a  test's  inapplicability  may 
be  supported  by  documents  issued  by  the  ISO  and  the  AJPO  known  as  Ada 
Commentaries  and  commonly  referenced  in  the  format  Al-ddddd.  For  this 
implementation,  the  following  tests  were  determined  to  be  inappliceOale  for 
the  reasons  indicated;  references  to  Ada  Commentaries  are  included  as 
appropriate. 
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The  following  201  tests  have  floating-point  type  declarations  requiring 
more  digits  than  SYSTEM. MAX_DIGITS: 

C24113L..Y  (14  tests)  C35705L..Y  (14  tests) 

C35706L..Y  (14  tests)  C35707L..Y  (14  tests) 

C35708L..Y  (14  tests)  C35802L..Z  (15  tests) 

C45241L..Y  (14  tests)  C45321L..Y  (14  tests) 

C45421L..Y  (14  tests)  C45521L..Z  (15  tests) 

C45524L..Z  (15  tests)  C45621L..Z  (15  tests) 

C45641L..Y  (14  tests)  C46012L..Z  (15  tests) 

The  following  21  tests  check  for  the  predefined  type  LONG_INTEGER; 


C35404C 

C45231C 

C45304C 

C45411C 

C45412C 

C45502C 

C45503C 

C45504C 

C45504F 

C45611C 

C45612C 

C45613C 

C45614C 

C45631C 

C45632C 

B52004D 

B55B09C 

C55B07A 

B86001W 

C86006C 

CD7101F 

C35702B,  C35713C,  B86001U,  and  C86006G  check  for  the  predefined  type 
LCNG_FLCAT. 

C35713D  and  B86001Z  check  for  a  predefined  floating-point  type  with  a 
name  other  than  FLOAT,  L(»IG_FLQAT,  or  SHORT_FLQAT. 

A35801E  checks  that  FLOAT' FIRST. .FLOAT' LAST  may  be  used  as  a  range 
constant  in  a  floating-point  type  declaration;  for  this  implementation 
that  range  exceeds  the  safe  numbers  and  must  be  rejected.  (See  2.3) 

C45531M..P  (4  tests)  and  C45532M..P  (4  tests)  check  fixed-point 
operations  for  types  that  require  a  SYSTEM. MAX_MANTISSA  of  47  or 
greater. 

C45624A  euid  C45624B  check  that  the  proper  exception  is  raised  if 
MACHINE_OVERFLCWS  is  FALSE  for  floating  point  types;  for  this 
implementation,  MACHINEjOVERFLCWS  is  TRUE. 

C86001F  recompiles  package  SYSTEM,  making  package  TEXT_I0,  and  hence 
package  REPORT,  obsolete.  For  this  inplementation,  the  package  TEXT_IO 
is  dependent  upon  package  SYSTEM. 

B86001Y  checks  for  a  predefined  fixed-point  type  other  than  DURATIC»J. 

C96005B  checks  for  values  of  type  DURATION' BASE  that  are  outside  the 
range  of  DURATIC»J.  There  are  no  such  values  for  this  implementation. 

CD1009C  uses  a  representation  clause  specifying  a  non-default  size  for  a 
floating-point  type . 

CD2A84A,  CD2A84E,  C3D2A84I..J  (2  tests),  and  CD2A840  use  representation 
clauses  specifying  non-default  sizes  for  access  types. 
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The  tests  listed  in  the  following  table  are  not  applicable  because  the 
given  file  operations  are  supported  for  the  given  combination  of  mode 
and  file  access  method. 


Test 

File  Operation  Mode 

File  Access  Method 

CE2102D 

CREATE 

IN  FILE 

SEQUENTIAL  10 

CE2102E 

CREATE 

ajT  FILE 

SEQUENTIAL  10 

CE2102F 

CREATE 

INOUT  FILE 

DIRECT  10 

CE2102I 

CEIEATE 

IN  FILE 

DIRECT  10 

CE2102J 

CREATE 

OUT  FILE 

DIRECT  10 

CE2102N 

OPEN 

IN  FILE 

SEQUENTIAL  10 

CE2102O 

RESET 

IN  FILE 

SEQUENTIAL  10 

CE2102P 

OPEN 

OUT  FILE 

SEQUENTIAL  10 

CE2102Q 

RESET 

OUT  FILE 

SEQUENTIAL  10 

CE2102R 

OPEN 

INOUT  FILE 

DIRECT  10 

CE2102S 

RESET 

INGOT  FILE 

DIRECT  10 

CE2102T 

OPEN 

IN  FILE 

DIRECT  10 

CE2102U 

RESET 

IN  FILE 

DIRECT  10 

CE2102V 

OPEN 

OUT  FILE 

DIRECT  10 

CE2102W 

RESET 

OUT  FILE 

DIRECT_I0 

CE3102E 

CREATE 

IN_FILE 

TEXT_I0 

CE3102F 

RESET 

Any  Mode 

TEXT  10 

CE3102G 

DELETE 

TEXT  10 

CE3102I 

CREATE 

OUT  FILE 

TEXT_IO 

CE3102J 

OPEN 

IN  FILE 

TEXT_I0 

c:e3102k 

OPEN 

OUT  FILE 

TEXT_I0 

CE2203A  checks  that  WRITE  raises  USE__ERROR  it  the  capacity  of  the 
external  file  is  exceeded  for  SEQUENTIAL_IO.  This  implementation  does 
not  restrict  file  capacity. 

CE2403A  checks  that  WRITE  raises  USE__ERROR  if  the  capacity  of  the 
external  file  is  exceeded  for  DIPECT_I0.  This  implementation  does  not 
restrict  file  capacity. 

CE3304A  checks  that  USE_ERROR  is  raised  if  a  call  to  SET  LINE  LENGTH  or 
SET_PAGE  LENGTH  specifies  a  value  that  is  inappropriate  Jor  tHe  external 
file.  This  iit?)lementation  does  not  have  inappropriate  values  for  either 
line  length  or  page  length. 

CE3413B  checks  that  PAGE  raises  LAYOUT_ERROR  when  the  value  of  the  page 
number  exceeds  COUNT'LAST.  For  this  implementation,  the  value  of 
COUNT' LAST  is  greater  than  150000  making  the  checking  of  this  objective 
impractical. 


2.3  Test  Modifications 

Modifications  (see  section  1.3)  were  required  for  23  tests. 
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The  follc3wing  tests  were  split  into  two  or  more  tests  because  this 
implementation  did  not  report  the  violations  of  the  Ada  Standard  in  the  way 
expected  by  the  original  tests. 

B24009A  B33301B  B38003A  B38003B  B38009A  B38009B 

B85008G  B85008H  B91001H  BC1303F  BC3005B  BD2B03A 

BD2D03A  BD4003A 


A35801E  was  graded  inapplicable  by  Evaluation  Modification  as  directed  by 
the  AVO;  the  compiler  rejects  the  use  of  the  range  FLOAT' FIRST. .FLOAT' LAST 
as  the  range  constraint  of  a  floating-point  type  declaration  because  the 
bounds  lie  outside  of  the  rcinge  of  safe  numbers  (cf.  ARM  3.5.7(12)). 

CD1009A,  CD1009I,  CD1C03A,  CD2A22J,  CD2A24A,  and  CD2A31A.  .C  (3  tests)  use 
instantiations  of  the  support  procedure  Length_Check ,  which  uses 
Unchecked_Conversion  according  to  the  interpretation  given  in  AI-00590. 

The  AVO  ruled  that  this  interpretation  is  not  binding  mder  ACVC  1.11;  the 
tests  are  ruled  to  be  passed  if  they  produce  Failed  messages  only  from  the 
instantiations  of  Length_Check — i.e.,  the  allowed  Report. Failed  messages 
have  the  general  form; 

"  *  CHECK  CW  REPRESENTATIC»I  FOR  <TYPE  ID>  FAILED." 
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PROCESSING  INFORMATICS 


3.1  TESTING  ENVIRCSMENT 

The  Ada  implementation  tested  in  this  validation  effort  is  described 
adequately  by  the  information  given  in  the  initial  pages  of  this  report. 

For  a  point  of  contact  for  technical  information  about  this  Ada 
inplementation  system,  see; 

Gary  Beerman 

6901  W.  Sionrise  Blvd. 

Ft.  Lauderdale  FL  33340-9148 

For  a  point  of  contact  for  sales  information  about  this  Ada  inplementation 
system,  see: 


Gary  Beerman 

6901  W.  Sunrise  Blvd. 

Ft.  Lauderdale  FL  33340-9148 


Testing  of  this  Ada  inplementation  was  conducted  at  the  customer's  site  by 
a  validation  team  from  the  AVF. 


3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Inplementation  passes  a  given  ACVC  version  if  it  processes  each  test 
of  the  customized  test  suite  in  accordcince  with  the  Ada  Programming 
Language  Standard,  vrtiether  the  test  is  applicable  or  inapplicedsle; 
otherwise,  the  Ada  Implementation  fails  the  ACVC  [Pro90]. 

For  all  processed  tests  (inappliceible  amd  applicaible) ,  a  result  was 
obtained  that  conforms  to  the  Ada  Programming  Language  Standard. 
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a)  Total  Number  of  ^plicable  Tests  3814 

b)  Total  Number  of  Withdrawn  Tests  83 

c)  Processed  Inapplicable  Tests  72 

d)  Non-Processed  I/O  Tests  0 

e)  Non-Processed  Floating-Point 

Precision  Tests  201 

f)  Total  Number  of  Inapplicable  Tests  273 


g)  Total  Number  of  Tests  for  ACVC  1.11  4170 


All  I/O  tests  of  the  test  suite  were  processed  because  this  implementation 
supports  a  file  system.  The  above  number  of  floating-point  tests  were  not 
processed  because  they  used  floating-point  precision  exceeding  that 
supported  by  the  inplementation.  When  this  compiler  was  tested,  the  tests 
listed  in  section  2.1  had  been  withdrawn  because  of  test  errors. 


3 . 3  TEST  EXECUTIC^I 

A  magnetic  tape  containing  the  customized  test  suite  (see  section  1.3)  was 
taken  on-site  by  the  validation  team  for  processing.  The  contents  of  the 
magnetic  tape  were  loaded  directly  onto  the  host  computer. 


After  the  test  files  were  loaded  onto  the  host  computer,  the  full  set  of 
tests  was  processed  by  the  Ada  iirplementation. 


The  tests  were  conpiled  and  linked  on  the  host  computer  system,  as 
appropriate.  The  executable  images  were  tremsf erred  to  the  target  computer 
system  via  Ethernet,  and  run.  The  results  were  captured  on  the  host 
computer  system. 

Testing  was  performed  using  command  scripts  provided  by  the  customer  and 
reviewed  by  the  validation  team.  See  Appendix  B  for  a  complete  listing  of 
the  processing  options  for  this  implementation.  It  also  indicates  the 
default  options.  The  options  invoked  explicitly  for  validation  testing 
during  this  test  were: 

Option/Switch  Effect 


-V  Verbose 


Test  output,  compiler  and  linker  listings,  and  job  logs  were  captured  on 
magnetic  tape  and  archived  at  the  AVF.  The  listings  examined  on-site  by 
the  validation  team  were  also  archived. 
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MACRO  PARAMETERS 


This  appendix  contains  the  macro  parameters  used  for  customizing  the  ACVC. 
The  meaning  eind  purpose  of  these  parameters  are  explained  in  [UG89].  The 
parameter  values  are  presented  in  two  tables.  The  first  table  lists  the 
values  that  are  defined  in  terms  of  the  maucimum  input-line  length,  vdiich  is 
the  value  for  $MAX_IN_LEN — also  listed  here.  These  values  are  expressed 
here  as  Ada  string  aggregates,  where  "V"  represents  the  maucimum  input-line 
length. 


Macro  Parameter 


Macro  Value 


$MAX_IN_LEN 

499 

$BIG_ID1 

(1..V-1  ->  ’A’, 

V 

«>  '1') 

$BIG_ID2 

(1..V-1  ->  'A', 

V 

N 

V 

$BIG_ID3 

(1..V/2  =>  'A') 

& 

'3'  & 

(1..V-1-V/2 

-> 

'A'  ) 

$BIG_ID4 

(1..V/2  ->  'A'  ) 

& 

'4'  & 

( 1 . .V-l-V/2 

-> 

'A'  ) 

$BIG_INT_LIT 

(1..V-3  ->  '0' ) 

& 

"298" 

$BIG_REAL_LIT 

(1..V-5  ->  '0' ) 

& 

"690.0" 

$BIG_STRING1 

&  (1..V/2  =: 

>  ' 

A')  & 

$BIG_STRING2 

&  (1.. V-l-V/2 

=>  'A')  &  '1'  & 

$BLANKS 

(1..V-20  ->  '  ' 

) 

$MAX_LEN_INT_BASEDJ 

LITERAL 

"2:"  &  (1..V-5  = 

=> 

'0')  &  "11:" 

$MAX_LEN_REAL_BASED 

LITERAL 

"16:"  &  (1..V-7 

=> 

' 0 ' )  &  "F.E: " 
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$MAX_STEIING_LITERAL 

&  (1..V-2  ->  'A')  & 

The  following  table  lists  all  of 
respective  values. 

the  other  macro  parameters  eind  their 

Macro  Parameter 

Macro  Value 

$ACC_SIZE 

32 

$ALIGNMENT 

4 

$COUNT_LAST 

2147483647 

$DEFAULT_MEM_SI ZE 

16777216 

$DEFAULT_ST0R_UN1T 

8 

$DEFAULT_SYS_NAME 

Utnaxv  88k 

$DELTA_DOC 

0.0000000004656612873077392578125 

$ENTRY_ADDRESS 

SYSTEM. "+"(16#40#) 

$ENTRY_ADDRESS1 

SYSTEM. "+"(16#80#) 

$ENTRY_ADDRESS2 

SYSTEM. "+"( 161100#) 

$FIELD__LAST 

2147483647 

$FI LE_TERMINATOR 

f  t 

$FIXED_NAME 

NO_SUCH_TYPE 

$FLOAT_NAME 

NO_SUCH_TYPE 

$PORM_STRING 

If  It 

$FORM_STRING2 

"CANNC7r_RESTRICr_FILE  CAPACITY" 

$GREATER  THAN  DURATIOI 

100000.0 

$atEATER_THAN_DURATIC»I  BASE  LAST 

TOOOOT^OO 

$GREATER_THAN_FLOAT_BASE  LAST 

1.5E+308 

$GREATER_THAN_FLCIAT_SAFE  LARGE 

5.UE307 
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$GREATER_THAN_SHORT_FLOAT  SAFE_LARGE 

9.0E37 

$HiaH_PRIORITy  99 

$ILLEGAL_E3CrERNAL_FILE  NAMEl 

'Villegal/file_naine/2}  ]  %2102c.dat" 

$ILLEGAL_EXTERNAL_FILE  NAME2 

"Villegal/f  i  le_name/CE2102C* .  dat " 

$INAPPROPRIATE_LINE_LENGTH 

-1 

$ INAPPROPRIATE_PAGE_LENGTH 

-1 

$INCLUDE_PRAGMA1  PRAGMA  INCLUDE  ( "A28006D1 .TST" ) 

$INCLUDE_PRAaiA2  PRA(31A  INCLUDE  ( "B28006D1 .TST" ) 

$INTEGER_FIRST  -2147483648 

$INTEGER_LAST  2147483647 

$INTEGER_LAST_PLUS_1  2147483648 

$INTERFACE_LANGUAGE  C 

$LESS_THAN_DURATIC»I  -100000.0 

$LESS_THAN_DURATION_BASE  FIRST 

-ITJOOOOOO.O 

$LINE_TERMINATOR  ASCI I . LF 

$LCW_PRIORITY  0 

$MACHINE_CODE_STATEMENT 

CODE_0'  (OP  ->  NOP); 

$MACHINE_CODE_TYPE  CODE_0 

$MANTISSA_DOC  31 

$MAX_DIGITS  15 

$MAX_INT  2147483647 

$MAX_INT_PLUS_1  2147483648 

$MIN_INT  -2147483648 
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$MAME 

TINY__INTEGER 

$NAME_LIST 

Umaxv_88k 

$NAME_SPECIFICATIC»J1 

'*/u5/acvcl .  llA«3rk/ce2  " 

& 

"X21202A' 

$NAME_SPECI FICATION2 

'*/u5/acvcl .  ll/work/ce2" 

& 

"X21202B' 

$NAME_SPECIFICATI(»J3 

"/u5/acvcl .  ll/Vork/ce3  " 

& 

"X3119A" 

$NEG_BASED_INT 

16#F000000E# 

$NEW_MEM_SI2E 

65535 

$NEW_STOR_UNIT 

16 

$NEW_SYS_NAME 

Umaxv_88k 

$PAGE_TERMINATOR 

ASCII.FF 

$RECORD_DEFINITICW 

RECORD  SUBP:  OPERAND;  END 

RECORD; 

$RECORDJSlAME 

CODE_0 

$TASK_SIZE 

32 

$TASK_STORAGE_SIZE 

1024 

$T1CK 

0.01 

$VARIABLE_ADDRESS 

VAR_1 'ADDRESS 

$VARIABLE_ADDRESS1 

VAR_2 'ADDRESS 

$VARIABLE_ADDRESS2 

VAR_3 'ADDRESS 

$YOUR  PRAGMA 

PRAGMA  PASSIVE 
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COMPILATION  SYSTEM  OPTIONS 


The  coRipiler  options  of  this  Ada  implementation,  as  described  in  this 
^pendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  compiler  documentation  emd 
not  to  this  report. 
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NAME 

ada  -  invoke  the  Ada  compiler 
SYNOPSIS 

ada  [options]  [source JileJt]...  [linker_opiions]  [object Jile.o]... 

DESCRIPTION 

ada  executes  the  Ada  compiler  and  compiles  source  Jile.  source  Jile  must  end  with  the  .a  suffix  and  must 
reside  in  a  directory  that  has  been  initialized  as  an  Ada  library.  The  adaJib  file  in  this  directory  is  modified 
after  each  Ada  unit  is  compiled. 

You  can  specify  non-Ada  object  files  (.o  files  produced  by  compilers  for  other  languages)  to  be  linked  with 
the  specified  Ada  object  files. 

By  default,  ada  produces  only  object  and  nets  files.  If  you  specify  the  — M  option,  the  compiler  automati- 
c^ly  invokes  aJd  and  builds  a  complete  program,  with  the  specified  library  unit  as  the  main  program. 

The  order  of  compilation  and  the  order  of  the  files  to  be  passed  to  the  linker  can  be  significant.  You  can, 
however,  specify  command  line  options  in  any  order. 

Specify  no  mwe  than  one  of  the  following  options;  -E,  -e,  -El,  -el,  -ev. 

The  options  are: 

-#  identijier  type  value  (define)  Define  an  identifier  of  the  specified  type  and  value.  (For  further 

information,  see  "Ada  lYeprocessor  Reference.") 

-a file_name  (archive)  Treat  filejume  as  an  object  archive  file  created  by  ar.  This 

option  distinguishes  archive  files,  some  of  which  end  with  .a,  from  Ada 
source  files,  all  of  which  end  with  ,a. 

-d  (dependencies)  Analyze  for  dqrendencies  only,  performing  neither 

semantic  analysis  nor  code  generatioa  Update  the  library,  marking  any 
dependent  units  as  uncompiled.  The  a.make  utility  uses  this  informa¬ 
tion  to  establish  dependencies  among  new  files. 

-E  [file]  [directory]  (error  output)  Use  a.error  to  process  error  messages.  If  neither  file  nor 

directory  is  specified,  ada  directs  a  brief  listing  to  standard  output, 
placing  the  raw  error  messages  in  ada  jource. err.  If  file  is  specified, 
ada  places  the  raw  error  messages  in  the  file  with  that  name.  If  direc¬ 
tory  is  specified,  ada  places  the  raw  error  messages  in 
directory! source.erT.  You  can  use  the  file  of  raw  error  messages  as 
input  to  a.error. 

-e  (error)  Use  a.error  to  process  compilation  error  messages,  sending  the 

listing  to  standard  output  Only  the  source  lines  containing  errors  are 
listed. 

-El  [file]  [directory]  (error  listing)  Same  as  the  -E  option,  except  that  error  messages  are 

interspersed  among  source  lines. 

-el  (error  listing)  Same  as  the  -e  option,  except  that  error  messages  are 

interspersed  among  source  lines. 

-ev  (error  vi(l))  Process  syntax  error  messages  using  a.error,  embed  them 

in  the  source  file,  and  call  the  environment  editor  error.EDITOR.  If  no 
editor  is  specified,  call  vi(l).  (If  error_editor  is  defined,  the  environ¬ 
ment  variable  error.pattern  should  also  be  defined. 
ERROR.PATTERN  is  an  editor  search  command  that  locates  the  first 
occurrence  of  the  string  ###  in  the  error  file.) 

-K  (keep)  Keep  the  intermediate  language  (IL)  file  produced  by  the 


7  th  Edition 


1 


ada(  1 ) 


UNIX  Progianuner’s  Manual 


acla(l) 


compiler  front  end;  name  the  file  Ada_sourceA,  and  place  it  in  the 
.objects  directory. 

-L  libraryjtame  (library)  Cerate  in  the  Ada  library  library jume.  The  default  is  the 

current  working  directory. 

Note:  If  two  files  of  the  same  name  firom  different  directories  are  com¬ 
piled  in  the  same  Ada  library  using  the  -L  option,  the  second  compila¬ 
tion  overwrites  the  first,  even  if  the  contents  and  unit  names  are  dif¬ 
ferent  For  example,  ada  /usr/direct(»y2/foo.a  -L  /usr/PADS/test 

overwrites 

ada  /usr/directoryl/foo . a  -L  /uar/PADS/test 

in  library  /usr/PADS/test 

-^lejxbbreviation  (library  search)  Direct  the  linker,  ld(l),  to  search  the  library  file 

specified  by  filejzbbreviation. 

-M  [unitjiamel  (main)  Produce  an  executable  program  by  linking  wutjume  as  the 

main  program,  unitjiame  must  be  either  a  parameterless  procedure  or 
a  parameterless  function  returning  an  integer.  Unless  it  is  being  com¬ 
piled  by  this  invocation  ofada,  unitjiame  must  already  have  been  com¬ 
piled.  The  executable  program  is  named  a.out  unless  you  use  the  -o 
opdon  to  specify  another  name. 

source  Jile  (main)  Produce  an  executable  program  by  compiling  and  linking 

source  Jile.  The  main  unit  of  the  program  is  assumed  to  be  the  root 
name  of  the  ui  file  (in  fooji.  for  example,  the  main  unit  is  foo).  Unless 
you  use  the  -0  option  to  specify  another  name,  the  executable  program 
is  named  aumt.  Only  one  .a  file  can  be  preceded  by  -M. 

-0  executable Jle  (ouqiut)  Name  the  executable  program  executable Jile  rather  than  the 

default,  a.out.  This  option  is  used  in  conjunction  with  the  -M  opticm. 

-O[0-9]  (optimize)  Invoke  the  code  optimizer  (0PTIM3).  The  optional  digit  pro¬ 

vides  the  level  of  optimization.  The  default  is  -04. 

This  version  of  the  compiler  includes  a  preliminary  M88k-specific 
optimizer.  The  qjtimizer  scheddes  load  instructions  to  avoid  pipeline 
conflicts  and  moves  instructions  to  the  delay  slots  of  branches  and 
calls.  Since  it  can  be  slow  for  some  programs,  it  is  enabled  only  at 
optimization  levels  greater  than  4. 

-O  full  optimization 

-OO  no  optimization 

-01  no  hoisting 

-02  no  hoisting  but  more  passes 

-03 
-04 
-05 
-06 
-07 
-08 


no  hoisting  but  even  more  passes 

hoisting  from  loops 

hoisting  from  loops  but  more  passes 

hoisting  from  loops  with  maximum  passes 

hoisting  from  loops  and  branches 

hoisting  from  loops  and  branches,  mc»e  passes 
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-09  hoisting  from  loops  and  branches,  maximum  passes 

Note:  Hoisting  from  branches  (and  case  alternatives)  can  be  slow  and 
does  not  always  provide  significant  performance  gains.  You  might 
therefore  want  to  suppress  iL 

-P  (preprocessor)  Invoke  the  Ada  preprocessor,  aapp. 

-R  library _name  (recompile  instantiation)  Force  analysis  of  all  generic  instantiations. 

causing  reinstantiation  of  any  that  are  out  of  date. 

-S  (suppress)  Apply  pragma  suppress  to  the  entire  compilation  for  all 

suppressible  checks. 

-sh  (show)  Display  the  name  of  the  executable  compiler,  but  do  not  exe¬ 

cute  iL  (Several  versions  of  PADS  may  exist  on  one  system.  The  ada 
command  in  any  PAOSjocation/hin  executes  the  correct  version  of  the 
compiler  based  upon  visible  library  directives.) 

-T  (timing)  Print  timing  information  for  the  compilation. 

-v  (verbose)  Print  compiler  version  number,  date  and  time  of  compilation, 

name  of  file  compiled,  command  input  line,  total  compilation  time,  and 
error  sumnuuy  line.  Provide  information  about  the  object  file’s  use  of 
storage.  With  0FTIM3  the  output  format  of  compression  (the  size  of 
optimized  instructions)  is  shown  as  a  percentage  of  input  (unoptimized 
instructions). 

(warnings)  Suppress  warning  diagnostics. 

Library  reference  file 
Generic  instantiation  reference  file 


-w 

HLES 

ada.lib 

gnrx.lib 


GVAS.lock,  gnrx.lock  Lock  the  library  while  reading  or  writing  special  litnury  files 


GVAS_table 

.imports 

dines 

.nets 

.objects 


Address  assigrunent  file 
Imported  Ada  units  directory 
Line  number  reference  files  directory 
DIANA  nets  files  directory 
(global)  object  files  directory 


SEE  ALSO 

a.app(l),  a.error(l),  a.ld(l),  a.make(l) 
ld(l).  vi(l) 

DUGNOSTICS 

The  diagnostics  produced  by  the  compiler  are  intended  to  be  self-explanatory.  Most  refer  to  the  Ada 
Language  R^erence  Manual  (Ada  RM).  Each  Ada  RM  reference  includes  a  section  number  and.  option¬ 
ally,  a  paragraph  number  enclosed  in  parentheses. 
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LINKER  OPTIONS 

The  linker  options  of  this  Ada  implementation,  as  described  in  this 
Appendix,  are  provided  by  the  customer-  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  linker  documentation  eind  not 
to  this  report. 
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NAME 

aJd  -  invoke  the  Ada  preiinker 
SYNOPSIS 

aJd  [opaons]  mitjutme  [ld_options] 

DESCRIPTION 

add  collects  the  object  files  needed  to  make  unitjuone  a  main  program,  add  then  calls  the  linker  ld(l)  to 
link  all  Ada  object  files  and  any  non- Ada  object  files  required  to  produce  an  executable  image  in  a.out. 

unitjiame  specifies  the  main  program  and  must  be  a  nongeneiic  subprogram.  If  unitjume  is  a  function,  it 
must  return  a  value  of  type  standardjnteger.  This  integer  result  is  passed  back  to  the  shell  as  the  status 
code  of  the  execution. 


All  arguments  after  unitjume  are  passed  to  ld(l).  These  arguments  may  be  Id  options,  archive  libraries, 
library  abbreviations,  or  object  files. 

The  options  are: 

-DX  (debug)  Debug  memory  overflow.  Use  this  option  in  cases  where  link¬ 

ing  a  large  number  of  units  produces  the  error  message  "local  symbol 
overflow". 


-E  unitjume 
-F 

-L  library  juune 
-0  executable JUe 


-r 


-sh 


-T  target 
-U 

-V 

-V 


(elaborate)  Elaborate  unitjume  as  early  in  the  elaboration  order  as 
possible. 

(files)  Display  a  list  of  dependent  files  in  order,  but  suppress  linking. 

(library)  Operate  in  the  Ada  library  library jume.  The  default  is  the 
cunent  woiking  direcuxy. 

(ouq}ut)  Name  the  executable  file  executable _file  rather  than  the 
default.  a.out. 

Retain  relocation  entries  in  the  output  object  file.  Relocation  entries 
must  be  saved  if  the  output  file  is  to  become  an  input  file  in  a  subse¬ 
quent  run  of  a  link  editor.  The  link  editor  does  not  complain  about 
unresolved  references,  and  the  output  file  is  not  executable. 

(show)  Display  die  name  of  the  a.ld  executable  file,  but  do  not  execute 
it  (Several  versions  of  pads  can  exist  on  one  system. 
PADSjocationnAaltiM  executes  the  correct  version  of  a.ld  based  upon 
directives  visible  in  the  ada.lib  file.) 

Use  target  as  the  target  run-time  environment. 

(units)  Print  a  list  of  dependent  units  in  order,  but  suppress  linking. 

(verbose)  Print  the  linker  command  before  executing  it. 

(verify)  Print  the  linker  command,  but  suppress  execution. 


The  add  tool  reads  the  nets  files  produced  by  the  Ada  compiler  to  determine  dependency  information.  The 
tool  produces  an  exception  mapping  table  and  a  unit  elaboration  table  and  passes  this  information  to  the 
linker. 

a.ld  reads  instructions  for  generating  executables  from  the  ada.iib  file  in  the  Ada  libraries  on  the  search 
list.  In  addition  to  information  generated  by  the  compiler,  these  instructions  include  wiTHn  directives, 
which  enable  the  automatic  linking  of  object  modules  compiled  from  other  languages  or  Ada  object 
modules  not  named  in  context  clauses  in  the  Ada  source.  The  adaJib  file  can  contain  any  number  of  wiTHn 
directives,  but  the  directives  must  be  numbered  consecutively,  beginning  at  with  1.  The  directives  have  the 
following  form:  WITHl:LINK:ofi/ecr  Jile:  with2  :  LINK  :arc/iive Jile:  wrrHn  directives  can  be  placed 
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a.ld(l) 


in  the  local  Ada  library  or  in  any  Ada  libraries  on  the  search  list  A  wiTHn  directive  in  the  local  library  or 
earlier  on  the  search  list  hides  any  wiTHn  directive  with  the  same  number  in  a  library  later  on  the  search 
list. 

Use  the  tool  aJnfo  to  change  or  display  library  directives  in  the  current  library. 

FILES 

a.out 
.nets 

.objects/* 

PADSjocationIstandard/* 

SEE  ALSO 

ada(l),  a.info(l) 
ld(l) 

DIAGNOSTICS 

add  produces  self-explanatory  error  messages  for  missing  hies,  etc.  Additional  messages  are  produced  by 
the  linker,  ld(l). 


Default  output  hie 
DIANA  nets  hies  directory 
Ada  object  hies 

Stan-up  and  standard  library  routines 
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APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
inplementation-dependent  pragmas,  to  certain  machine-dependent  conventions 
as  mentioned  in  Chapter  13  of  the  Ada  Standard,  and  to  certain  allowed 
restrictions  on  representation  clauses.  The  inplementation-dependent 
characteristics  of  this  Ada  inplementation,  as  described  in  this  Pippendix, 
are  provided  by  the  customer.  Unless  specifically  noted  otherwise, 
references  in  this  .^jpendix  are  to  conpiler  documentation  and  not  to  this 
report.  Inplementation-specific  portions  of  the  package  STANDARD,  vhich 
are  not  a  part  of  Appendix  F,  are: 


package  STANDARD  is 


type  INTEGER  is  range  -2'4748364fi  ..  2147483647; 

type  FLOAT  is  digits  15  range  -1.701411183E+308  ..  1 .70141183E+308; 

type  DURATION  is  delta  0.001  range  -2147483.648  ..  2147483.647; 

type  SHORT_INTEGER  is  range  -32768  ..  32767; 

type  SHORT_FIX]AT  is  digits  6  range  -3.40282E+38  ,.  3.40282E+38; 

type  TINY_INTEGER  is  rauige  -128  ..  127; 


end  STANDARD; 


Appendix  F 

of  the  Ada  Language 

Reference  Manual 


The  Parallel  Ada  Development  System  provides  the  full  Ada  language  as 
specified  in  the  Ada  Language  Reference  Manual  (Ada  RM).  Within  the  Ada  RM, 
a  number  of  sections  contain  the  annotation  implementation  dependent,  meaning 
that  the  interpretation  of  the  section  is  left  to  the  compiler  implementor.  This 
appendix  describes  the  implementation-dependent  characteristics  of  the  PADS 
compiler. 

PADS  has  attempted  to  provide  an  essentially  unlimited  capability  to  program  in 
Ada.  Consequently,  applications  programmers  can  usually  program  in  Ada 
according  to  the  Ada  RM  and  good  engineering  practices  without  consideration  of 
any  PADS  specifics. 


PRAGMAS  AND  THEIR  EFFECTS 


This  section  provides  a  brief  description  of  every  pragma  supported  by  PADS. 
You  can  find  additional  information  about  some  of  the  pragmas  under  discussions 
of  particular  language  constructs  elsewhere  in  this  manual  and  in  the  Parallel  Ada 
Development  System  User's  Guide. 

pragma  CONTROLLED _ 

This  pragma  is  recognized  by  the  implementation  but  has  no  effect  in  the  current 
release. 
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pragma  ELABORATE _ 

This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM. 


pragma  EXTERNAL_NAME _ 

This  pragma  enables  you  to  specify  an  external  link  name  for  an  Ada  variable  or 
subprogram  so  that  the  object  can  be  referenced  from  other  languages.  The 
pragma  is  allowed  at  the  place  of  a  declarative  item  in  a  package  specification  and 
must  apply  to  an  object  declared  earlier  in  the  same  package  speciricadon.  Objects 
must  be  variables  defined  in  a  package  specification;  subprograms  can  be  either 
library  level  or  within  a  package  specification.  For  further  information  about 
pragma  EXTERNAL_NAME,  see  Qiapter  4  of  this  manual. 

pragma  IMPLICIT_CODE _ 

Use  this  pragma  with  caution.  The  pragma,  used  only  within  the  declarative  pan  of 
a  machine  code  procedure,  specifies  whether  implicit  code  generated  by  the 
compiler  is  allowed  (ON)  or  disallowed  (OFF).  Implicit  code  includes  preamble 
and  postamble  code  (for  example,  code  used  to  move  parameters  to  and  from  the 
stack).  A  warning  is  generated  if  implicit  code  is  required  and  OFF  is  specified. 

Use  of  pragma  IMPLICIT_CODE  does  not  eliminate  code  generated  for  run- 1’ me 
checks,  nor  does  it  eliminate  call/return  instructions.  (These  can  be  eliminated  by 
pragma  SUPPRESS  and  pragma  INLINE,  respectively.) 

For  further  information  about  pragma  IMPLICIT_CODE,  see  Chapter  3  of  this 
manual. 


pragma  INLINE 


This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM,  with  one 
addition:  Recursive  calls  can  be  expanded  with  the  pragma  up  to  the  maximum 
depth  of  4.  Warnings  are  generated  for  bodies  that  are  not  availabie  for  inline 
expansion.  When  applied  to  subprogranns  that  declare  tasks,  packages, 
exceptions,  types,  or  nested  subprograms,  pragma  INLINE  is  ignored  and  causes 
a  warning  to  be  issued. 
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Pragmas  and  Their  Effects 


pragma  !NLINE_ONLY 


When  used  in  the  same  way  as  pragma  INLINE,  this  pragma  indicates  to  the 
compiler  that  the  subprogram  must  always  be  inlined.  This  is  very  important  for 
some  code  procedures,  pragma  INLINE_ONLY  also  saves  code  space  by 
suppressing  the  generadon  of  a  callable  version  of  the  routine.  If  you  erroneously 
make  an  INLINE_ONLY  subprogram  recursive,  a  warning  is  generated  and  a 
PROGRAM_ERROR  is  raised  at  run  time. 


pragma  INTERFACE 


This  pragma,  with  parameters  language  and  subprogram,  supports  calls  to  Ada,  C, 
Pasc^,  and  FORTRAN  functions.  You  can  also  use  pragma  INTERFACE  to  call 
code  written  in  unspecified  languages,  specifying  UNCHECKED  as  the  language 
name.  The  Ada  specifications  can  be  either  functions  or  procedures. 

For  Ada,  the  compiler  generates  the  call  as  if  it  were  a  call  to  an  Ada  procedure, 
but  it  does  not  expect  a  matching  procedure  body. 

For  C,  the  types  of  parameters  and  the  result  type  for  functions  must  be  scalar 
types,  access  types,  or  the  predefined  type  ADDRESS  in  package  SYSTEM. 
Record  and  anay  objects  can  be  passed  by  reference  using  the  ’ADDRESS 
attribute.  All  parameters  must  have  nxxie  in. 

For  Pascal,  the  types  of  parameters  and  the  result  type  for  functions  must  be 
scalar  types,  access  types,  or  the  predefined  type  /DDRESS  in  package 
SYSTEM.  Record  and  array  objects  can  be  passed  by  reference  using  the 
’ADDRESS  attribute. 

For  FORTRAN,  all  parameters  are  passed  by  reference  The  parameter  types 
must  have  type  SYSTEM. ADDRESS,  and  the  result  type  for  a  function  must  be  a 
scalar  type. 

Use  UNCHECKED  to  interface  to  an  unspecified  language,  such  as  assembler. 

The  compiler  generates  the  call  as  if  it  were  a  call  to  an  Ada  procedure,  but  it  does 
not  expect  a  matching  Ada  procedure  body. 

For  related  information,  see  the  section  entitled  "Parameter  Passing"  later  in  this 
appendix. 
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pragma  INTERFACE_NAME 


This  pragma  enables  direct  reference  in  Ada  to  variables  or  subprograms  defined 
in  another  language,  pragma  INTERFACE_NAME  uses  the  following  format: 

pragma  INTERFACE_NAME  (Ada_subprogram,  linkjuime)’, 

where  Ada_subpf‘ogram  denotes  either  an  object  or  a  subprogram. 

The  pragma  replaces  all  references  to  Adajsubprogram  with  an  external  reference 
to  linkjiame  in  the  object  file. 

If  Ada_5ubprogram  denotes  an  object,  the  pragma  is  allowed  at  the  place  of  a 
declarative  item  in  a  package  specificatior.  and  must  apply  to  an  object  declared 
earlier  in  the  same  package  specificanon.  The  object  must  be  declared  as  a  scalar 
or  an  access  type  and  cannot  be  any  of  the  following: 

•  Loop  variable 
«  Constant 

•  Initialized  variable 

•  Array 

•  Record 

If  Adajubprogram  denotes  a  subprogram,  a  pragma  INTERFACE  must  already 
have  been  specified  for  the  subprogram. 

The  linkjiame  must  be  constructed  as  the  linker  expects;  for  example,  C  variable 
names  must  be  prefaced  with  an  underscore.  The  following  example  makes  the  C 
global  variable  errtio  available  within  an  Ada  program: 

package  PACKAGE__NAME  is 
EFlRNO ;  INTEGER; 

pragina  lNTERrACE_NAME  (ERRNO, '’_errr.o'' )  ; 
end  PACKAGE^NAME ; 

For  further  infonnation  about  pragma  INTERFACE.NAME,  see  Chapter  4  of 
this  manual. 

pragma  LINK^WITH  _ 

Use  this  pragma  to  pass  arguments  to  the  linker.  The  pragma  can  appear  in  any 
declarative  pan  and  accepts  one  argument,  a  constant  string  expression.  This 
argument  is  passed  to  the  target  linker  whenever  the  unit  containing  the  pragma 
is  included  in  a  link. 
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For  example,  the  following  package  puts  the  -Ini  option  on  the  command  line  for 
the  linker  whenever  MATH  is  included  in  the  linked  program: 

package  MATH  is 

pragma  LINK_WITH(  "-Im 
end; 

And  the  following  package  links  with  the  named  object  file  sin.o: 
package  MATH  is 


SIN  is  a  routine  written  in  C  or  assembly:  the  object 
for  the  routine  is  in  the  object  file  sin.o 


function  SIN  (X: FLOAT)  return  FLOAT; 

pragma  interface  (C,  SIN) ; 
pragma  LINK_WITH ("sin .o") ; 
end  MATH; 

If  the  constant  string  expression  begins  with  the  string  is  left  untouched.  If 
the  string  begins  with  neither  ’ nor  Y',  then  the  string  is  prefixed  with 

pragma  LIST _ _ 


This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM. 

pragma  MEMORY.SIZE _ 


This  pragma  is  recognized  by  the  implementation  but  has  no  effect  in  the  current 
release.  PADS  does  not  allow  modification  of  package  SYSTEM  by  means  of 
pragmas.  You  can,  however,  achieve  the  same  effect  by  copying  the  file  system.a 
in  library  standard  to  a  local  Ada  library  and  recompiling  it  there  with  new  values. 

pragma  NOJMAGE _ 


This  pragma  suppresses  the  generation  of  the  image  array  used  for  the  ’IMAGE 
attribute  of  enumeration  types,  eliminating  the  overhead  required  to  store  the 
array  in  the  executable  image.  At''  attempt  to  use  the  ’IMAGE  attribute  on  a 
type  whose  image  array  has  been  suppressed  results  in  a  warning  at  compile  time 
and  causes  the  exception  PR(X}RAM_ERROR  to  be  raised  at  run  time. 
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pragma  NON_REENTRANT 


This  pragma  takes  one  argument,  which  can  be  the  name  of  a  library  subprogram 
or  a  subprogram  declared  immediately  within  a  library  package  specification 
or  body.  The  pragma  prevents  the  subprogram  from  being  called  recursively, 
allowing  the  compiler  to  perform  spedfic  optimizations.  You  can  apply 
pragma  NON_REENTRANT  to  a  subprogram  or  a  set  of  overloaded 
subprograms  within  a  package  specification  or  package  body. 

pragma  NOT_ELABORATED _ 


This  pragma  suppresses  the  generation  of  elaboration  code,  issuing  warnings  if 
elaboration  code  is  required.  The  pragma  prevents  elaboration  of  a  package  that  is 
either  part  of  the  run-time  system,  a  configuration  package,  or  an  Ada  package 
that  is  referenced  from  a  language  other  than  Ada.  pragma  NOT_ELAB  ORATED 
can  appear  only  in  a  library  package  specification. 

pragma  OPTIMIZE _ _ 


This  pragma  is  recognized  by  the  implementation  but  has  no  effect  in  the  current 
release.  For  code  optimization  options,  see  the  ada  -  O  entry  in  Chapter  9  of  the 
Parallel  Ada  Development  System  User’s  Guide. 

pragma  OPTlMIZE_CODE _ 


This  pragma  specifies  whether  the  compiler  optimizes  code  (ON)  or  does  not 
optimize  code  (OFF).  When  OFF  (the  default)  is  specified,  the  compiler 
generates  the  code  as  specified.  You  can  use  the  pragma  in  any  subprogram. 

You  can  suppress  optimization  selectively  by  using  this  pragma  at  the 
subprogram  level.  Inline  subprograms  are  optimized  even  if 
OPTIMIZE_CODE(OFF)  is  specified,  unless  pragma  OPTIMIZE_CODE(OFF) 
is  also  specified  for  the  caller. 

pragma  PACK _ 


This  pragma  causes  the  compiler  to  minimize  gaps  between  components  in  the 
representation  of  composite  types.  Objects  larger  than  a  single  ST0RAGE_UN1T 
are  packed  to  the  nearest  STORAGE_UNTT.  Storage  optimization  generally 
results  in  less  efficient  manipulation  of  the  packed  data  type. 
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pragma  PAGE 


This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM.  The 
pragma  is  also  recognized  by  the  source  code  formatting  tool.  a.pr. 

pragma  PASSIVE _ 


This  pragma  directs  the  compiler  to  optimize  certain  tasks  into  passive  tasks.  The 
pragma  can  be  applied  to  a  task  or  task  type  declared  immediately  within  a  library 
package  specification  or  body. 

pragma  PASSIVE  has  three  forms: 

pragma  PASSIVE; 

pragma  PASSIVE(SEMAPHORE); 

pragma  PASSIVE(INTERRUPT,  nim); 

The  statements  in  the  task  body  may  prevent  the  intended  optimization.  In  such 
cases,  a  warning  is  generated  at  compile  time  and  the  exception 
TASKING_ERROR  is  raised  at  run  rime. 

For  additional  information  about  pragma  PASSIVE  and  passive  tasks,  see  the 
section  enrided  “Passive  Tasks”  in  Chapter  2  of  this  manual. 

pragma  PRIORITY  _ 


This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM.  The 
allowable  range  for  pragma  PRIORITY  is  0 .. 

pragma  SHARE_CODE _ 


This  pragma  enables  multiple  instanriarions  of  the  same  generic  procedure  or 
package  body  to  share  object  code.  A  “parent”  instanriarion  is  created,  and 
subsequent  instanriarions  of  the  same  types  can  share  the  parent’s  object  code, 
reducing  program  size  and  compilation  times. 

pragma  SHARE_CODE  takes  the  name  of  a  generic  unit  or  a  generic 
instanriarion  as  its  first  argument  and  either  of  the  identifiers  TRUE  or  FALSE  as 
its  second  argument.  When  the  first  argument  is  the  name  of  a  generic  unit,  the 
pragma  applies  to  all  instanriarions  of  that  generic.  When  the  first  argument  is  the 
name  of  a  generic  instantiation,  the  pragma  applies  only  to  the  specified 
instanriarion  or  overloaded  instanriarions. 
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If  the  second  argument  is  TRUE,  the  compiler  tries  to  share  code  generated  for  a 
generic  instandadon  with  code  generated  for  other  instandadons  of  the  same 
generic.  When  the  second  argument  is  FALSE,  each  instandadon  gets  a  unique 
copy  of  the  generated  code. 

The  pragma  SHARE.CODE  is  allowed  only  immediately  at  the  place  of  a 
declaradve  item  in  a  declaradve  pan  or  package  specidcadon  or  after  a  library  unit 
in  a  compiladon  but  before  any  subsequent  compiladon  unit  The  extent  to  which 
code  is  shared  by  instandadons  depends  on  this  pragma  and  the  kind  of  generic 
foimal  parameters  declared  for  the  generic  unit 

You  can  subsdtute  the  name  pragma  SHARE_BODY  for  the  name  pragma 
SHARE.CODE. 

pragma  SHARED _ 

This  pragma  is  recognized  by  the  implementadon  but  has  no  effect  in  the  current 
release. 


pragma  STORAGE_UNiT 


This  pragma  is  recognized  by  the  implementadon  but  has  no  effect  in  the  current 
release.  PADS  docs  not  allow  modificadon  of  package  SYSTEM  by  means  of 
pragmas.  You  can  achieve  the  same  effect  by  copying  the  file  systenta  in  library 
standard  to  a  local  Ada  library  and  recompiling  it  there  with  new  values. 
(However,  you  should  not  redefine  STORAGE_UNIT.) 

pragma  SUPPRESS _ 


This  pragma  is  implemented  as  described  in  Appendix  B  of  the  Ada  RM,  except 
that  DIVISION_CHECK  and,  in  some  cases,  OVERFLOW_CHECK  cannot  be 
suppressed. 

Using  pragma  SUPPRESS(ALL_CHECKS)  is  equivalent  to  writing,  at  the  same 
point  in  the  program,  a  pragma  SUPPRESS  for  each  of  the  checks  listed  in  Ada 
RM  11.7. 

pragma  SUPPRESS  (EXCEPTION_TABLES)  tells  the  code  generator  not  to 
generate,  for  the  enclosing  compiladon  unit,  the  tables  that  are  normally  generated 
to  idendfy  excepdon  regions.  This  reduces  the  size  of  the  stadc  data  required  for  a 
unit  but  also  disables  excepdon  handling  within  that  unit. 
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pragma  SYSTEM_NAME 


This  pragma  is  recognized  by  the  ioqjlementation  but  has  no  effect  in  the  current 
release.  PADS  does  not  allow  modification  of  package  SYSTEM  by  means  of 
pragmas.  You  can,  however,  achieve  the  same  effect  by  copying  the  file  system.a 
in  library  standard  to  a  local  Ada  Ul^ary  and  recompiling  it  there  with  new  values. 


pragma  VOLATILE 


This  pragma,  with  its  argument,  object,  guarantees  that  loads  and  stores  to  the 
named  object  are  performed  as  expected  after  optimization.  For  example: 

niemory_flag  :  Integer; 
pragma  volatile  (memory_£lag| ; 


PREDEFINED 

PACKAGES  AND  GENERICS 


The  following  predefined  Ada  packages,  specified  by  Ada  RM  Appendix  C(22), 
are  provided  in  the  library  standard; 

•  generic  ftinction  UNCHECKED^CONVERSION 

•  generic  package  DIRECT.IO 

•  generic  package  SEQUENTIAL  JO 

•  generic  procedure  UNCHECKED_DEALLOCATION 

•  package  CALENDAR 

•  package  lO.EXCEPTIONS 

•  package  LOW_LEVEL JO 

•  package  MACHINE_CODE 

•  package  STANDARD 

•  package  SYSTEM 

•  package  TEXTJ  O 


Parallel  Ada  Development  System  Programmer's  Guide 


B-9 


Predefined  Packages  and  Generics 


Appendix  F  of  the  Ada  Language  Reference  Manual 


Specification  of  package  SYSTEM 


with  UNSIGNED_TyPES; 
package  SYSTEM  is 

pragma  SUPPRESS (ALL_CHECKS) ; 
pragma  SUPPRESS (EXCEPTION_TABLES) / 
pragma  NOT_ELABORATED ; 
type  NAME  is  (  umaxv_88k  ) ; 

SYSTEM_NAME  :  constant  NAME  umaxv_88k; 

STORAGE__UNIT  :  constant  8; 

MEMORY  SIZE  :  constant  16  777  216 


—  System-Dependent  Named  Numbers 


MIN_INT 

MAX_INT 

MAX_DIG1TS 

MAX_MANTISSA 

FINE_DELTA 

TICK 


constant  :■  -2_147_483_648; 
constant  2_147_483_647; 
constant  15 
constant  :■  31; 
constant  :■  2.0** (-31); 
constant  :  0.01; 


—  Other  System-Dependent  Declarations 
subtype  PRIORITY  is  INTEGER  range  0  ..  99; 


MAX_REC 

ST-’.L 

;  integer 

64 

*1024; 

type  nuC  (jiSS 

is 

private; 

fur  .r  M 

(A: 

ADDRESS; 

B: 

ADDRESS) 

return 

BOOLEAN; 

function 

(A: 

ADDRESS; 

B: 

ADDRESS) 

return 

BOOLEAN; 

function 

**>«** 

(A; 

ADDRESS; 

S; 

ADDRESS) 

return 

BOOLEAN; 

function 

(A: 

ADDRESS; 

B: 

ADDRESS) 

return 

BOOLEAN; 

function 

n.n 

(A; 

ADDRESS; 

B: 

ADDRESS) 

return 

INTEGER; 

function 

ft 

(A: 

ADDRESS; 

I: 

INTEGER) 

return 

ADDRESS; 

function 

(A: 

ADDRESS; 

I: 

INTEGER) 

return 

ADDRESS; 

function  (I;  UNSIGNED_TYPES .UNSIGNED_INTEGER)  return 

ADDRESS; 

function  MEMORY_ADDRESS 

(I:  UNSIGNED_TYPES.UNSIGNED_INTEGER)  return  ADDRESS 
renames  "+”; 


NO_ADDR  :  constant  ADDRESS; 
type  TASK_ID  is  private; 

NO_TASK_ID  :  constant  TASK_ID; 
type  PROGRAM_ID  is  private; 

NO_PROGRAM_ID  :  constant  PROGRAM_ID; 

type  SIG_STATUS_T  is  array(1..64)  of  boolean; 

pragma  PACK (SIG_STATUS_T) ; 

SIG_STATUS_SIZE:  CONSTANT  8; 
private 

type  ADDRESS  is  new  UNSIGNED_TYPES .UNSIGNED_INTEGER; 

NO_ADDR  :  constant  ADDRESS  0; 

pragma  BUILT_IN (">")  ; 

pragma  BUILT_IN("<")  ; 

pragma  BUILT_IN ; 

pragma  BUILT_IN 
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pragma  BUILT_IN ; 
pragma  BUILT_IN ("+") ; 
end  SYSTEM; 

package  CALENDAR _ 

package  CALENDAR  operates  as  specified  in  Ada  RM  9.6.  It  uses  the  clock 
funcdon  in  package  CALENDAR.LOCAL_TIME  (located  in  the  file 
calendar_s^).  which  uses  the  operating  system  service  routines 
GETTIhffiOFDAY  and  LOCALTIME  to  get  the  current  time. 

package  MACHINE_CODE _ 

package  MACHINE_CODE  provides  an  assembly  language  interface  for  the 
target  machine,  including  the  necessary  record  types  needed  in  the  code 
statement  (see  Ada  RM  13.8),  an  enumeradon  type  containing  all  the  opcode 
mnemonics,  a  set  of  register  definidons,  and  a  set  of  addressing  mode  funcdons. 
Also  supplied  (for  use  only  in  units  that  with  MACHINE_CODE)  are  pragma 
IMPLIcfT_CODE  and  the  attribute  ’REF.  For  the  specificadon  of  the  package, 
see  the  secdon  endUed  “package  MACHINE_CODE’’  in  Chapter  3. 

Machine  code  statements  take  operands  of  type  OPERAND,  a  private  type  that 
forms  the  basis  of  all  machine  code  address  foimats  for  the  target. 

The  general  syntax  of  a  machine  code  statement  is 

CODE_n' (opcode,  operand  [,  operand  ]); 

where  n  indicates  the  number  of  operands  in  the  aggregate. 

In  the  following  example,  CODE_3  is  a  record  ‘format’  whose  first  argument  is  an 
enumeradon  v^ue  of  type  OPCODE  followed  by  three  operands  of  type 
OPERAND; 

CODE_3' (add,  rlO,  rll,  b' ref ) ; 

For  those  opcodes  requiring  no  operands,  you  must  use  named  notation  (see  Ada 
RM  4.3(4)): 

CODE_0’(op  =>  opcode)-, 

opcode  must  specify  an  enumeration  literal  (that  is,  it  cannot  specify  an  object,  an 
attribute,  or  a  rename),  operand  can  specify  only  an  entity  defined  in 
MAC3iINE_CODE  or  the  ’REF  attribute. 

The  ’REF  attribute  denotes  the  effective  address  of  the  first  storage  unit  allocated 
to  the  object.  ’REF  is  not  supponed  for  a  package,  task  unit,  or  entry.  For  details, 
see  the  section  entitled  “’REF’  later  in  this  appendix. 
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Arguments  to  any  of  the  functions  defined  in  MACHINE_CODE  must  be  static 
expressions,  string  literals,  or  the  functions  defined  in  MACHINE_CODE. 


As  an  example  of  machine  code  insertions,  the  procedure  OS.EXTEND  requests 
the  operating  system  to  extend  the  program  stack  space  to  a  new  address; 


procedure  oa_extend  {new_top  :  in  system. address)  rs 
—  Extend  the  stack  according  to  BCS  Chapter  5 


pragma  implicit_oode (off ) 
use  machine_code; 
begin 

oode_3' (add,  rlO,  r31,  rO); 
code_3' (add,  r31,  r2,  rO); 
code_2' (St,  rO,  r31+0) ; 
code_3'  (add,  r31,  rlO,  rO) ) ; 
code_l' (jn^,  rl); 
end  os  extend; 


—  Save  sp 

—  Set  sp  to  new  limit 

—  Access  it;  this  extends  the  stack 

—  Restore  sp 


package  SEQUENTIALJO 


Sequential  I/O  is  currently  implemented  for  variant  records,  with  one  restriction; 
The  maximum  size  possible  for  the  record  is  always  written.  The  same  is  true  for 
direct  I/O.  For  unconstrained  records  and  arrays,  the  constant 
SYSTEM.MAX_REC_SIZE  can  be  set  prior  to  the  elaboration  of  the  generic 
instantiation  of  SEQUENTIALJO  or  DIRECT  JO.  For  example,  if  unconstrained 
strings  arc  written,  S YSTEMMAX_REC_SIZE  effectively  restricts  the  maximum 
size  of  strings.  If  you  know  the  maximum  size  of  such  strings,  you  can  set  the 
S YSTEM.MAX_REC_SIZE  prior  to  instantiating  SEQUENTIALJO  for  the 
string  type.  You  can  reset  this  variable  after  the  instantiation  with  no  effect. 

package  UNSIGNED_TYPES 


The  package  UNSIGNED_TYPES  illustrates  the  definition  of  and  services  for 
the  unsigned  types  supplied  in  this  version  of  PADS.  Use  this  package  at  your 
own  risk.  We  do  not  warrant  its  effectiveness  or  legality,  either  expressly  or  by 
implication. 

We  plan  to  withdraw  this  implementation  of  UNSIGNED_TYPES  if  and  when  the 
Ada  Joint  Program  Office  and  the  Ada  community  reach  agreement  on  a  practical 
specification  of  unsigned  types.  We  will  then  standardize  our  implementation 
based  on  that  accepted  version  at  the  earliest  practical  date. 

The  package  is  supplied  in  comment  form  because  the  actual  package  cannot  be 
expressed  in  normal  Ada  -  the  types  are  not  symmetric  about  0,  as  is  required  by 
the  Ada  RM.  This  package  is  supplied  and  is  accessible  through  the  Ada  WITH/j 
statement,  as  if  it  were  present  in  source  form. 
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Example: 

with  un3igned_types; 

procedure  f oo (  xxx:  un3igned_types .un3igned_integer)  i3  ... 

Note:  Use  package  UNSIGNED_TYPES  at  your  own  risk. 

— 1  Specification  of  package  UNSIGNED_TYPES _ 

—  package  un3igned_type3  is 

—  type  un3igned_integer  is  range  0  ..  (2**32  -  1);  —  0 .. 4294967295 

— function  (a,  b:  un3igned_integer)  return  boolean; 

— function  "/-''(a,  b:  un3igned_integer)  return  boolean; 

— function  "<"  (a,  b:  unsigned_integer)  return  boolean; 

— function  (a,  b:  un3igned_integer)  return  boolean; 

— function  ">'•  (a,  b:  un3igned_integer)  return  boolean; 

— function  (a,  b:  un3igned_integer)  return  boolean; 

— function  "+"  (a,  b:  un3igned_integer)  return  unsigned_integer; 

— function  (a,  b:  un3igned_integer)  return  unsigned_integer; 

— function  "+"  (a  :  un3igned_integer)  return  un3igned_integer; 

— function  (a  :  un3igned_integer)  return  unsigned_integer; 

— function  "*"  (a,  b:  un3igned_integer)  return  unsigned_integer ; 

— function  "/"  (a,  b:  un3igned_integer)  return  un3igned_integer ; 

— function  "mod" (a,  b:  un3igned_integer)  return  un3igned_integer; 

— function  "rem" (a,  b;  unsigned_integer)  return  unsigned_integer; 
—function  "**"  (a,  b:  unaigned_integer)  return  unsigned_integer; 

— function  "abs" (a,  b:  un3igned_integer)  return  unsigned_integer; 

—  type  unsigned_3hort_integer  is  range  0  ..  (2**16  -  1);—  0.. 65535 
—function  "■•"  (a,  b;  un3igned_short_integer)  return  boolean; 

— function  "/-"(a,  b:  unsigned_3hort_integer)  return  boolean; 

— function  "<"  (a,  b:  unsigned_3hort_integer)  return  boolean; 

— function  "<-"(a,  b:  un3igned_3hort_integer)  return  boolean; 

— function  ">"  (a,  b:  unsigned_3hort_integer)  return  boolean; 

— function  ">-"(a,  b:  un3igned_3hort_integer)  return  boolean; 

— function  "+"  (a,  b:  unsigned_3hort_integer) 

—  return  un3igned_3hort_integer; 

— function  (a,  b:  unsigned_3hort_integer) 

—  return  unsigned_short_integer; 

— function  "+"  (a  :  un3igned_3hort_integer) 

—  return  unsigned_3hort_integer; 

— function  (a  :  un3igned_3hort_integer) 

—  return  un3igned_short_integer; 

— function  "*"  (a,  b:  un3igned_3hort_integer) 

—  return  unsigned_3hort_integer; 

— function  "/"  (a,  b:  un3igned_5hort_integer) 

—  return  unsigned_3hort_integer; 

— function  "mod" (a,  b:  un3igned_3hort_integer) 

—  return  unsigned_3hort_integer; 

— function  "rem" (a,  b:  un3igned_3hort_integer) 

—  return  un3igned_short_integer; 

— function  "**"  (a,  b:  un3igned_3hort_integer ) 
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—  return  un3igned_3hort_integer; 

— function  "ab3"(a,  b:  un3igned_3hort_integer) 

—  return  un3igned_3hort_integer; 


—  type  unsigned_tiny_integer  ia  range  0  . .  (2**8  - 
— function  "■'*  (a,  b:  unsign6d_tiny_integer)  return 
—function  "/""(a,  b:  un3igned_tiny_integer)  return 
— function  "<"  (a,  b:  un3igned_tiny_integer)  return 
— function  ”<■" (a,  b:  un3igned_tiny_integer)  return 
— function  ">"  (a,  b:  un3igned_tiny_integer)  return 
— function  ">«" (a,  b:  un3igned_tiny_integer)  return 
— function  "+"  (a,  b:  un3igned_tiny_integer) 

—  return  unsigned_tiny_integer; 

— function  va,  b:  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  ”+"  (a  :  unsign6d_tiny_integer) 

—  return  unsigned_tiny_integer; 

— function  (a  :  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "*"  (a,  b:  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "/"  (a,  b:  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "mod” (a,  b:  unsigned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "rem"  (a,  b:  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "**"  (a,  b;  unsigned_tiny_integer) 

—  return  un3igned_tiny_integer; 

— function  "aba" (a,  b:  un3igned_tiny_integer) 

—  return  un3igned_tiny_integer; 

—  end  un3igned_tyr)e3; 


1);  --  0 
boolean; 
boolean ; 
boolean; 
boolean ; 
boolean; 
boolean; 


.255 


IMPLEMENTATION-DEFINED 

ATTRIBUTES 


This  section  describes  the  attributes  defined  by  PADS. 

TASK  ID 


For  a  task  object  or  a  value  T,  T’TASK_ID  yields  the  unique  task  ID  associated 
with  the  task.  The  value  of  this  attribute  is  of  the  type  SYSTEM.TASK_ID. 

’REF 


The  ’REF  attribute  denotes  the  effective  address  of  the  first  of  the  storage  units 
allocated  to  the  object.  ’REF  is  not  supported  for  a  package,  task  unit,  or  entry. 
This  attribute  has  two  forms:  X’REF  and  SYSTEM.ADDRESS’REF(N).  X’REF, 
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used  only  in  machine  code  procedures,  designates  an  operand  within  a  code 
statement.  SYSTEM.ADDRESS’REF(N)  can  be  used  anywhere  to  conven  an 
integer  expression  to  an  address. 

X’REF 

This  attribute  generates  a  reference  to  the  entity  to  which  it  is  applied. 

In  X’REF,  X  must  be  either  a  constant,  variable,  procedure,  function,  or  label.  The 
attribute  returns  a  value  of  the  type  MACHINE_CODE.OPERAND  and  can  only 
be  used  to  designate  an  operand  within  a  code  statement 

The  instruction  generated  by  the  code  statement  in  which  the  attribute  occurs  can 
be  preceded  by  additional  instructions  needed  to  facilitate  the  reference  (for 
example,  loading  a  base  register).  If  the  declarative  section  of  the  procedure 
contains  pragma  IMPLICIT_CODE  (OFF)  and  additional  code  is  required,  a 
warning  is  generated. 

References  may  also  cause  the  generation  of  run-time  checks.  You  can  use 
pragma  SUPPRESS  to  elimina.te  these  checks. 

Example: 

C0DE_1' (BSR,  PROC'REF); 

CODE_2' (Id,  rll,  X.ALL(Z) 'REF) ; 

For  further  information,  see  the  section  entitled  "Ada  Entities  as  Operands"  in 
Chapter  3  of  this  manual. 

SYSTEM-ADDRESS^REFfm 

In  S YSTEM. ADDRESS ’REF(N),  SYSTEM. ADDRESS  must  be  the  type 
SYSTEM.ADDRESS;  N  must  be  an  expression  of  type 
UNrVERSAL_INTEGER.  The  attribute  returns  a  value  of  type 
SYSTEM.ADDRESS,  which  represents  the  address  designated  by  N. 

The  effect  of  this  attribute  is  similar  to  the  effect  of  an  unchecked  conversion  from 
integer  to  address.  You  should,  however,  use  S  YSTEM. ADDRESS ’REF(N)  in 
the  following  circumstances  (and  in  these  circumstances,  N  must  be  static): 

•  Within  any  of  the  run-time  configuration  packages.  Use  of 
UNCHECKED_CONVERSION  within  an  address  clause  would  require  the 
generation  of  elaboration  code,  and  the  configtuation  packages  are  not 
elaborated. 

•  In  any  instance  where  N  is  greater  than  INTEGER ’LAST.  Such  values  are 
required  in  address  clauses  that  reference  the  upper  portion  of  memory. 
UNCHECKED_CONVERSION  in  these  instances  would  require  that  the 
expression  be  specified  as  a  negative  integer. 
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•  To  place  an  object  at  an  address.  The  integer _yalue  in  the  following  example  is 
converted  to  an  address  for  use  in  the  address  representation  clause.  The  form 
avoids  UNCHECKED_CONVERSION  and  is  also  useful  for  32-bit  unsigned 
addresses; 

— place  an  object  at  an  address 

for  object  use  at  ADDRESS' REF  {integer_value) 

—to  use  unsigned  addresses 

for  VECTOR  use  at  SYSTEM. ADDRESS'REF(16#808000d0#) ; 
TOP_OF_MEMORY  :  SYSTEM. iODRESS  SYSTEMJtDDRESS' REF  (16#FFFFFFFF#); 


RESTRICTIONS  ON  MAIN  PROGRAMS 


In  PADS,  a  main  program  must  be  a  nongeneiic  subprogram  that  is  either  a 
procedure  or  a  function  returning  an  Ada  STANDARD.INTEGER  (the  predefined 
type).  A  main  program  may  be  neither  a  generic  subprogram  nor  an  instantiation 
of  a  generic  subprogram. 


GENERIC  DECLARATIONS 


In  PADS,  a  generic  declaration  and  the  corresponding  body  need  not  be  part  of  the 
same  compilation,  nor  must  they  exist  in  the  same  Ada  library.  If  a  single 
compilation  contains  two  versions  of  the  same  unit,  an  error  is  generated. 


SHARED  OBJECT  CODE 
FOR  GENERIC  SUBPROGRAMS 


The  PADS  compiler  generates  code  for  a  generic  instantiation  that  can  be  shared 
by  other  instantiations  of  the  same  generic,  thus  reducing  the  size  of  the 
generated  code  and  increasing  compilation  speed. 

Shared  code  instantiations  do  entail  some  overhead  because  the  generic  actual 
parameters  must  be  accessed  indirectly  and,  in  the  case  of  a  generic  package 
instantiation,  declarations  in  the  package  must  also  be  accessed  indirectly.  In 
addition,  unshared  instantiations  permit  greater  optimization  because  exact  actual 
parameters  are  known.  You  must  therefore  determine  whether  space  or  time  is 
more  critical  in  a  specific  application. 

Sharing  is  impractical  in  some  cases.  If  the  generic  has  a  formal  private  type 
parameter,  the  code  generated  to  accommodate  an  instantiation  with  an  arbitrary 
acmal  type  would  be  extremely  inefficient. 
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pragma  SHARE_CODE  lets  you  control  whether  an  instantiation  generates 
unique  code  or  shares  code  with  other  similar  instantiations. 

This  pragma  is  allowed  only  in  the  following  places:  inunediately  within  a 
declarative  part,  immediately  within  a  package  specification,  or  after  a  library  unit 
in  a  compilation  but  before  any  subsequent  compilation  unit,  pragma 
SHARE_CODE  takes  the  following  form: 

pragma  SHARE_CODE  (generic^  boolean  Jiter at) 

You  can  apply  pragma  SHARE.CODE  to  a  generic  declaration  or  to  individual 
instantiations.  When  pragma  SHARE_CODE  references  a  generic  unit,  it  sets 
sharing  on  or  off  for  all  instantiations  of  that  generic  unless  overridden  by  specific 
SHARE_CODE  pragmas  for  individual  instantiations.  When  it  references  an 
instantiated  unit,  pragma  SHARE.CODE  sets  sharing  on  or  off  for  that  unit 
alone.  The  default  is  to  share  all  generics  that  can  be  shared  unless  the  unit  uses 
pragma  INLINE. 

The  compiler  shares  code  by  default  if  the  generic  formal  type  parameters  are 
restricted  to  integer,  enumeration,  or  floating-point  To  override  the  default  use 
the  pragma  SHARE_CODE(name,  FALSE).  If  there  are  formal  subprogram 
parameters,  instantiations  are  not  shared  unless  you  specify  pragma 
SHARE_CODE(mwie,  TRUE). 

Generics  are  shared  by  default  if  a  parent  is  visible,  except  in  the  following  cases: 

•  When  generic  formal  types  other  than  integer,  enumeration, 
SYSTEM.ADDRESS  or  floating-point  are  used 

•  When  pragma  INLINE  is  applied  to  a  generic  subprogram  or  instantiation  or  to 
a  subprogram  visible  at  the  library  level  within  a  generic  package  or 
instantiation 

•  When  the  representations  of  the  actual  type  parameters  are  not  the  same  for 
each  of  the  instantiations 

•  When  the  generic  has  a  formal  in  out  parameter  and  the  subtype  of  the 
corresponding  actual  is  not  the  same  as  the  subtype  of  the  formal  parameter 

Note  that  a  parent  instantiation  (the  instantiation  that  creates  the  shareable 
body)  is  independent  of  any  individual  instantiation.  Therefore,  reinstantiation  of  a 
generic  with  different  parameters  has  no  effect  on  other  compilations  that 
reference  it.  The  unit  that  caused  compilation  of  a  parent  instantiation  need  not  be 
referenced  in  any  way  by  subsequent  units  that  share  the  parent  instantiation. 

The  unit  SHARED_IO  in  the  library  standard  instantiates  all  Ada  I/O  generic 
packages  for  the  most  commonly  used  base  types.  Thus,  any  instantiation  of  an 
Ada  I/O  generic  package  shares  one  of  the  parent  instantiation  generic  bodies 
unless  the  following  pragma  is  specified: 

pragma  SHARE_CODE  (  generic,  FALSE  ) ; 
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REPRESENTATION  CLAUSES 


This  section  describes  the  PADS  implementation  of  representation  clauses. 

Representation  Clauses _  _  _ 


PADS  suppons  bit-level  representation  clauses. 

Representation  Pragmas _ 


The  language-defined  pragma  PACK  is  the  only  representation  pragma  supponed 
by  PADS. 

Length  Clauses _  _ 


PADS  supports  all  length  clauses. 


Enumeration  Representation  Clauses 

PADS  supports  enumeration  representation  clauses. 

Record  Representation  Clauses 


Representation  clauses  are  based  on  the  target  machine’s  word,  byte,  and  bit 
order  numbering,  so  that  VADS  compilers  are  consistent  with  machine 
architecture  manuals  for  both  ‘big-endian’  and  ‘little-endian’  machines.  Bits 
within  a  STORAGE_UNIT  are  also  numbered  according  to  the  target  machine 
manuals.  You  need  not  understand  the  default  layout  for  records  and  other 
aggregates,  since  the  use  of  record  representation  clauses  gives  you  fine  control 
over  the  layout  You  can  align  record  fields  correctly  with  structures  and  other 
aggregate  types  from  other  languages  by  specifying  the  location  of  each  element 
explicitly.  On  the  MC88100,  PADS  operates  in  the  big-endian  type  ordering 
configuration. 
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Figure  B-1  illustrates  MC88100  addressing  and  bit  numbering. 


DOUBLE 

WOEO 


BlO-ERDUn  BYTE  OBDEXaiO 


Figure  B«1:  MC88100  Addressing  and  Bit  Numbering 

The  only  restricdons  on  record  representation  clauses  are  the  following: 

•  If  a  component  does  not  start  and  end  on  a  storage  unit  (byte)  boundary,  it  must 
be  stored  within  4  consecutive  bytes. 

•  A  component  that  is  itself  a  record  must  occupy  a  power  of  2  bits.  Components 
that  are  of  a  discrete  type  or  packed  array  can  occupy  an  arbitrary  number  of 
bits,  subject  to  the  preceding  restriction. 
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Address  Clauses 


PADS  supports  address  clauses  for  objects  and  entries. 

Note:  Use  with  caution  code  that  references  memory-mapped  devices 
using  a  for  use  at  clause  to  locate  an  object  at  the  I/O  address. 

The  default  optimization  of  the  compiler  eliminates  redundant 
moves  to  and  from  memory.  If  this  causes  problems,  compile  with 
pragma  OPTIM121E_CODE(OFF). 

Interrupt  Entries 

PADS  allows  task  entries  to  be  associated  with  operating  system  signals.  The 
operating  system  handles  all  interrupts  and  faults  initially  and  then  returns  control 
to  the  user  program  as  a  signal. 

The  available  signals  are  described  in  UMAX  V  Programmers  Guide.  Due  to 
restrictions  in  the  operating  system,  some  of  the  signals  cannot  be  caught. 

Although  an  attempt  to  assign  an  entry  to  these  signals  does  not  result  in  an 
error,  the  operating  system  will  not  deliver  the  signal  to  the  program. 

The  Ada  run-time  system  discourages  anempts  to  catch  the  timer-related 
signals. 

The  following  example  program  shows  you  how  to  attach  to  the  CTRL-c  or 
interrupt-fiom-keyboard  signal: 

with  iface_intr; 
with  system;  use  system; 
with  text_io; 
task  interrupt  is 
entry  SIGINT; 

for  SIGINT  use  at  address' ref (if ace_intr.sigint ) ;  —  interrupt 

end; 

task  body  interrupt  is 
begin 
loop 

accept  SIGINT  do 

text_io . put_line ( "SIGINT" ) ; 
end; 


end  Icop; 


end; 

Signal  handlers  are  set 

up  for 

the  following  signals  by  the  PADS  run-time  system: 

#def ine 

SIGFPE 

8 

/*  floating  point  exception  */ 

#def ine 

SIGSEGV 

11 

/*  segmentation  violation  */ 

#def ine 

SIGTRAP 

5 

/•  trace  trap  »/ 

#def ine 

SIGALRM 

14 

/*  alarm  clocks  */ 
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Representation  Clauses 


If  a  task  entry  is  attached  to  SIGFPE,  NUMERIC_ERROR  exceptions  are  not 
raised  correctly.  If  a  task  entry  is  attached  to  SIGSEGV,  STORAGE_ERROR 
exceptions  may  not  be  raised  correctly.  If  a  task  entry  is  attacked  to  SIGALRM, 
delay  statements  and  time  slicing  do  not  work  correctly. 

Use  of  signal  handlers  is  complicated  when  non- Ada  routines  are  involved.  For 
further  information,  see  Chapter  4  of  this  manual. 

Change  of  Representation 


PADS  suppons  change  of  representation. 

The  package  SYSTEM 


For  the  specification  of  package  SYSTEM,  sec  the  section  entitled  “Predefined 
Packages  and  Generics”  earlier  in  this  appendix.  The  specification  is  also 
available  on  line  in  the  file  systenLa  in  the  release  libr^  standard.  The 
pragmas  SYSTEM.NAME,  STORAGE_UNrr,  and  MEMORY_SIZE  are 
recognized  by  the  implementation  but  have  no  effect.  PADS  does  not  allow 
SYSTEM  to  be  modified  by  means  of  pragmas.  However,  you  can  achieve  the 
same  effect  by  recompiling  package  SYSTEM  with  altered  values.  Note  that 
such  recompilation  causes  other  units  in  the  library  standard  to  become  out  of 
dare.  Consequently,  you  should  recompile  SYST^  in  some  library  other  than 
standard. 


Representation  Attributes _ 

PADS  supports  the  ’ADDRESS  attribute  for  the  following  entities: 

•  Variables 

•  Constants 

•  Procedures 

•  Functions 

If  the  prefix  of  an  ’ADDRESS  attribute  is  an  object  that  is  not  aligned  on  a 
storage  unit  boundary,  the  attribute  yields  the  address  of  the  storage  unit 
containing  the  first  bit  of  the  object  This  is  consistent  with  the  definition  of  the 
’FIRST_BIT  attribute. 

All  other  Ada  representation  attributes  are  fully  supported. 
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Representation  Attributes  of  Real  Types 

PADS  suppons  these  attributes.  See  the  section  entitled  “Predefined  Packages 
and  Generics”  earlier  in  this  appendix. 

Machine  Code  Insertions 


PADS  supports  machine  code  insertions.  See  Chapter  3  of  this  manual  for  details. 

Interface  to  Other  Languages  _ 


PADS  supports  interface  to  other  languages.  See  Chapter  4  of  this  manual  and  the 
section  entitled  “Pragmas  and  Their  Effects”  earlier  in  this  appendix  for  details. 

Unchecked  Programming 


PADS  provides  both  UNCHECKED_DEALLOCATION  and 
UNCHECKED_CONVERSION. 

Unchecked  Storage  Deallocations 

Any  object  that  is  allocated  can  be  deallocated.  No  checks  are  currently  performed 
on  released  objects.  However,  when  an  object  is  deallocated,  its  access  variable 
is  set  to  null.  Subsequent  deallocations  using  the  null  access  variable  are  ignored. 


Unchecked  Type  Conversions 

The  predefmed  generic  function  UNCHECKED_CONVERSION  cannot  be 
instantiated  with  a  target  type  that  is  an  unconstrained  array  type  or  an 
unconstrained  record  type  with  discriminants. 


PARAMETER  PASSING 


Parameters  are  passed  in  registers  or  by  pushing  values  (or  addresses)  on  the 
stack.  Extra  information  is  passed  for  records  (’CONSTRAINED)  and  for  arrays 
(dope  vector  address). 

Registers  r2  through  r9  are  used  to  pass  parameters.  Parameters  of  64-bit 
floating-point  type  are  passed  in  a  register  pair.  Other  parameters  of  scalar  type, 
access  type,  or  the  type  SYSTEM.ADDRESS  are  passed  in  a  single  register.  If 
all  parameter  registers  have  been  used,  a  parameter  is  transmitted  in  storage  by 
pushing  its  value  on  the  stack. 


B-22 


Parallel  Ada  Development  System  Programmer’s  Guide 


Appendix  F  of  the  Ada  Language  Reference  Manual 


Parameter  Passing 


Likewise,  a  function  result  of  scalar  type,  access  type,  or  the  type 

SYSTEM. ADDRESS  is  returned  in  register  r2  or  in  the  pair  r2,  r3,  as  appropriate. 

Small  results  are  returned  in  registers:  large  results  with  known  targets  are 
passed  by  reference.  Large  results  of  anonymous  target  and  known  size  are 
passed  by  reference  to  a  temporary  created  in  the  caller.  Large  results  of 
anonymous  target  and  unknown  size  are  returned  by  copying  the  value  down  from 
a  temporary  created  by  the  callee  so  that  the  space  used  by  the  temporary  can  be 
reclaimed. 

The  compiler  assumes  the  following  calling  conventions,  defined  in  Object 
Compatibility  Standard  (OCS); 

1.  Caller  copies  first  8  argument  words  into  r2-r9. 

2.  Caller  pushes  additional  arguments  on  stack. 

3.  Caller  calls  callee. 

4.  Callee  builds  display  and  allocates  space  for  local  variables. 

5.  Callee  stores  any  registers  it  modifies  in  the  set  rl4 ..  r25. 

6.  Callee  executes. 

7.  Callee  restores  registers  saved  in  Step  5. 

8.  If  callee  is  a  function,  callee  leaves  result  in  r2  (or  in  the  pair  r2,  r3  for  a  64-bit 
floating-point  result). 

9.  Callee  deallocates  local  storage. 

10.  Callee  returns  to  caller. 

1 1.  Caller  copies  back  any  out  parameters  or  function  values. 

12.  Caller  deallocates  the  space  used  for  arguments  on  the  stack. 

Note;  Compilers  for  other  languages  may  follow  calling  conventions  other  than 
those  expected  by  PADS.  Use  the  debugger,  a.db,  to  verify  that  the  call 
interface  is  the  expected  one. 

When  calling  C  routines  (defined  with  pragma  INTERFACE  (C, 
Ada_subprogram)),  the  caller  allocates  stack  space  for  each  parameter  passed  in  a 
register  in  accordance  with  the  88open  Consortium  Ltd.  Object  Compatibility 
Standard  (OCS). 

When  compiler  conventions  are  not  compatible,  or  when  interfacing  to  assembly 
language,  you  can  build  a  call  interface  explicitly  using  machine  code  insertions. 
For  further  information,  see  Chapter  3  of  this  manual. 
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CONVERSION  AND  DEALLOCATION 


The  predefined  generic  function  UNCHECKED_CONVERSION  cannot  be 
instantiated  with  a  target  type  that  is  an  unconstrained  array  type  or  an 
unconstrained  record  type  with  discriminants. 

There  are  no  restrictions  on  the  types  with  which  generic  function 
UNCHECKED_DEALLOCATION  can  be  instantiated.  No  checks  are  performed 
on  released  objects. 


PROCESS  STACK  SIZE 


The  stack  limit  for  the  main  program  is  set  in  the  CONFIGUR  ATION_TABLE 
structure  in  the  package  V_USR_CONF.  The  default  value  is 

MAIN_TASK_STACK_SIZE  =>  256000 

The  stack  limit  for  tasks  is  also  set  in  the  contigination  table.  Its  default  value  is 
DEFAULT_TSK_STACK_SIZE  10_240 

For  information  on  how  to  modify  these  values  for  your  program,  see  Appendix  C 
of  the  Parallel  Ada  Development  System  User’s  Guide. 


TYPES,  RANGES,  AND  ATTRIBUTES 

This  section  describes  the  PADS  implementation  of  the  following  types: 

•  Numeric  literals 

•  Enumeration  types 

•  Discrete  types 

•  The  type  STRING 

•  Integer  types 

•  Floating-point  types 

•  Fixed-point  types 

•  Array  types 
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Types,  Ranges,  and  Attributes 


Numeric  Literals 


PADS  uses  unlimited  precision  arithmedc  for  computations  with  numeric  literals. 


Enumeration  Types 


PADS  allows  an  unlimited  number  of  literals  within  an  enumeration  type. 

Attributes  of  Discrete  Types _ 

PADS  defines  the  image  of  a  character  that  is  not  a  graphic  character  as  the 
corresponding  2-  or  3-character  identifier  tiom  package  ASCII  Ada  P  M, 
Appendix  C.  The  identifier  is  in  upper  case  without  enclosing  apostrophes.  For 
example,  the  image  for  a  caniage  return  is  the  2-character  sequence  CR 
(ASCILCR). 

The  type  STRING _ 


Except  for  memory  size,  PADS  places  no  specific  limit  on  the  length  of  the 
predefined  type  STRING.  Any  type  derived  from  the  type  STRING  is  similarly 
unlimited. 

By  default,  strings  are  represented  with  a  single  character  in  each  byte  of  memory. 
Thus,  storage  for  string  objects  is  automatically  minimized. 

Integer  Types _ 

Table  B-1  summarizes  the  attributes  of  the  predefined  integer  types. 


Table  B-1 :  Attributes  of  Integer  Types 


Name  of 
Attribute 

AttributeVaiue 
of  INTEGER 

AttributeVaiue  of 
SHORT_INTEGER 

AttributeVaiue  of 
TINY_INTEGER 

SIZE 

32 

16 

8 

HRST 

-2_147_483_648 

-32_768 

-128 

LAST 

2_147_483_647 

32_767 

127 
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Operation  of  Floating-Point  Types 


Table  8-2  summarizes  the  attributes  of  PADS  floating-point  types. 

Table  B-2:  Attributes  of  Floating-Point  Types 


Name  of 

Attribute 

Attribute  Value 
of  FLOAT 

Attribute  Value 
ofSHORT_FLOAT 

SIZE 

64 

32 

FIRST 

-1.79769313486232E+308 

-3.40282E+38 

LAST 

1.79769313486232E+308 

3.40282E+38 

DIGITS 

15 

6 

MANTISSA 

51 

21 

EPSILON 

8.88178419700125E-16 

9.536743 16406250E-07 

EMAX 

204 

84 

SMALL 

1.94469227433161E-62 

2.58493941422821E-26 

LARGE 

2.571 10087081438E+61 

1.93428038904620E+25 

SAFE_EMAX 

1021 

125 

SAFE.SMALL 

2.22507385850720E-308 

1.17549435082229E-38 

SAFE_LARGE 

2.24711641857789E+307 

4.25352755827077E+37 

MACHINE.RADK 

2 

2 

MACHINE.MANTISSA 

53 

24 

MACHINE.EMAX 

1024 

128 

MACHINE_EMIN 

-1021 

-125 

MACHINE.ROUNDS 

TRUE 

TRUE 

MACHINE.OVERFLOWS 

TRUE 

TRUE 

Fixed-Point  Types _ 

PADS  provides  fixed-point  types  mapped  to  the  supponed  integer  sizes. 
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Input/Output 


Operation  of  Fixed-Point  Types 


Table  B-3  summarizes  the  attributes  of  the  PADS  fixed-point  lyz.  DuIvaTION. 


Table  B-3:  Attributes  of  type  DURATION 


Name  of 

Attribute 

Attribute  Value 
for  DURATION 

SIZE 

32 

FIRST 

-2147483.648 

LAST 

2147483.647 

DELTA 

l.OE-03 

MANTISSA 

31 

SMALL 

l.OE-3 

LARGE 

2147483.647 

FORE 

8 

AFT 

3 

SAFE.SMALL 

l.OE-3 

SAFE.LARGE 

2147483.647 

MACHINE.ROUNDS 

TRUE 

MACHINE.OVERFLOWS 

TRUE 

Array  Types 


PADS  airay  bound  limits  are: 

INTEGER’FIRST:  -2,147,483,648 
INTEGER ’LAST;  2,147,483,647 


INPUT/OUTPUT 


The  PADS  I/O  system  is  implemented  using  UMAX  V  operating  system  services. 
Both  formatted  and  binary  I/O  are  available.  There  are  no  restrictions  on  the  types 
with  which  DIRECTJO  and  SEQUENTIAL_IO  can  be  instantiated,  except  that 
the  element  size  must  be  less  than  a  maximum  specified  by  the  variable 
SYSTEM.MAX_REC_SIZE.  Since  you  can  set  this  variable  to  any  value  prior  to 
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the  generic  instantiation,  you  can  use  any  element  size.  DIRECTJO  can  be 
instantiated  with  unconstrained  types,  but  each  element  is  padded  out  to  the 
maximum  possible  for  that  type  or  to  SYSTEM.MAX_REC_SIZE,  whichever  is 
smaller.  No  checking,  other  than  normal  static  Ada  type  checking,  is  done  to 
ensure  that  values  from  files  are  read  into  correctly  sized  and  typed  objects. 

PADS  file  and  terminal  input-output  are  identical  in  most  respects,  differing  only 
in  the  frequency  of  buffer  flushing.  Output  is  buffered  (buffer  size  is  1024  bytes). 
The  bufier  is  always  flushed  after  each  write  request  if  the  destination  is  a 
terminal.  The  procedure  FILE_SUPPORT.ALWAYS_FLUSH  (FILE_PTR) 
causes  the  buffer  associated  with  FILE_PTR  to  be  flushed  after  all  subsequent 
output  requests.  Refer  to  the  source  code  for  file__spprt_b^  in  the  standard 
libi^.  Note  that  the  limited  private  type  FILE_T^E,  defined  in  TEXT_IO,  is 
derived  from  the  type  FTLE_PTR,  Currently,  you  must  convert  between  them 
using  UNCHECKED_CONVERSION,  because  the  derivation  happens  in  the 
private  part  of  the  specification  of  TEXT_IO.  For  example,  the  following  procedure 
stops  buffering  for  standard  output: 

with  text_io; 

with  file_3upport; 

with  unchecked._conversion; 

procedure  dont_buffer (file:  text_io . f ile_type)  is 
function  cvt  is  new  unchecked_conversion ( 
source  •>  text_io.file__type, 
target  ->  file_support .filejptr) ; 

begin 

file_support .always_flush (cvt (file) ) ; 
end; 

Instantiations  of  DIRECT_IO  use  the  value  MAX_REC_SIZE  as  the  record  size 
(expressed  in  STORAGE_UNITs)  when  the  size  of  ELEMENT_TYPE  exceeds 
that  value.  For  example,  for  unconstrained  arrays  such  as  a  string,  where 
ELEMENT_TYPE’SIZE  is  very  large,  MAX_REC_SIZE  is  used  instead. 
MAX_REC_SIZE  is  defined  in  SYSTEM  and  can  be  changed  before  instantiating 
DIRECTJO  to  provide  an  upper  limit  on  the  record  size.  The  maximum  size 
supported  is  1024  *  1024  ♦  STORAGE_UNIT  bits.  DIRECT_IO  raises 
USE_ERROR  if  MAX_REC_SIZE  exceeds  this  absolute  limit. 

Instantiations  of  SEQUENTIAL_IO  use  the  value  MAX_REC_SIZE  as  the 
record  size  (expressed  in  STORAGE_UNITs)  when  the  size  of 
ELEMENT_TYPE  exceeds  that  value.  For  example,  for  unconstrained  arrays 
such  as  a  string,  where  ELEMENT^TYPE’SIZE  is  very  large,  MAX_REC_SIZE 
is  used  instead.  MAX_REC_SIZE  is  defined  in  SYSTEM  and  can  be  changed  by 
a  program  before  instantiating  SEQUENTIAL_IO  to  provide  an  upper  limit  on  the 
record  size.  SEQUENTIAL_IO  imposes  no  limit  on  MAX_REC_SIZE. 
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Input/Output 


Implementation-Defined  Values 

of  the  Input/Output  Packages _ 

The  PADS-defined  values  in  the  input/output  packages  are  as  follows: 

•  In  package  TEXT_IO 

type  COUNT  is  range  O..INTEGER’LAST; 
subtype  ^'IPT  -Q  is  INTEGER  range  O..INTEGER’LAST; 

•  In  package  DIRECTJO 

type  COUNT  is  range  0..2_147_483_647; 
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